100 REM *******************************
110 REM * FAKULTAET V3.0 - BAS.-VERS. *
120 REM *-----------------------------*
130 REM * (W) BY FRANK SCHNEIDER '92  *
140 REM *******************************
150 REM
160 K=10^5:INPUT" WELCHE FAKULTAET ";F%:IFF%<1ORF%>32664THENEND
170 F=(.5*LOG(2*(null))+(F%+.5)*LOG(F%)-F%+1/(12*F%))/LOG(10):E=INT(F):M=10^(F-E)
180 PRINT""F%"! ="INT(M*K)/K"E"E:K1=46712:K2=0:IFF%>=10000THENK1=41277:K2=471
190 L=(LOG(200*(null))+(F%+1)*LOG(F%)-1.5*F%)*F%/LOG(100)
200 T=L/K1-K2:H=T/3600:M=(H-INT(H))*60:S=(M-INT(M))*60
210 PRINT" RECHENZEIT FUER ALLE ZIFFERN :":PRINTINT(H)":"INT(M)"'"INT(S)